From: Ken Raeburn <raeburn@raeburn.org>
Date: Mon, 10 Aug 2009 00:57:48 +0000 (+0000)
Subject: (concat): Don't re-set string length to its current value.
X-Git-Tag: archive/raspbian/1%29.2+1-2+rpi1~1^2~324^2~11152
X-Git-Url: https://dgit.raspbian.org/%22http:/www.example.com/cgi/%22https:/www.github.com/%22bookmarks:///%22http:/www.example.com/cgi/%22https:/www.github.com/%22bookmarks:/?a=commitdiff_plain;h=5115a6fcc356295d534b708774cbdb7b29f30ffa;p=emacs.git

(concat): Don't re-set string length to its current value.
---

diff --git a/src/ChangeLog b/src/ChangeLog
index 25c91d21044..05dc7725090 100644
--- a/src/ChangeLog
+++ b/src/ChangeLog
@@ -1,5 +1,8 @@
 2009-08-10  Ken Raeburn  <raeburn@raeburn.org>
 
+	* fns.c (concat): Don't re-set string length to its current
+	value.
+
 	* coding.h (decode_coding_string, encode_coding_string): Use
 	SBYTES macro.
 
diff --git a/src/fns.c b/src/fns.c
index 07663830248..61abf32138d 100644
--- a/src/fns.c
+++ b/src/fns.c
@@ -661,7 +661,6 @@ concat (nargs, args, target_type, last_special)
 	    }
 	  toindex_byte += thislen_byte;
 	  toindex += thisleni;
-	  STRING_SET_CHARS (val, SCHARS (val));
 	}
       /* Copy a single-byte string to a multibyte string.  */
       else if (STRINGP (this) && STRINGP (val))